home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620275A.DCR / Scripts_14_Class LabelGod.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.6 KB  |  60 lines
  1. property layerList, backLabelSprite, frontLabelSprite, labelsOn, labelLayer, dontHide
  2.  
  3. on catchEvent me, xLayer
  4.   if xLayer = #mouseUp then
  5.     set dontHide to 0
  6.   else
  7.     if labelsOn then
  8.       if the myName of xLayer <> the myName of labelLayer then
  9.         set dontHide to 0
  10.         hideLabels(me)
  11.       end if
  12.     end if
  13.     repeat with i in layerList
  14.       if i = xLayer then
  15.         set labelLayer to i
  16.         next repeat
  17.       end if
  18.       crankDown(i)
  19.     end repeat
  20.     crankUp(labelLayer)
  21.     set the member of sprite backLabelSprite to getOne(layerList, labelLayer)
  22.     set the member of sprite frontLabelSprite to getOne(layerList, labelLayer)
  23.     if not labelsOn then
  24.       set labelsOn to 1
  25.       set the visible of sprite backLabelSprite to 1
  26.       set the visible of sprite frontLabelSprite to 1
  27.       set dontHide to 1
  28.     end if
  29.   end if
  30. end
  31.  
  32. on hideLabels me
  33.   if not dontHide then
  34.     if labelsOn then
  35.       set the visible of sprite backLabelSprite to 0
  36.       set the visible of sprite frontLabelSprite to 0
  37.       repeat with i in layerList
  38.         beNormal(i)
  39.       end repeat
  40.     end if
  41.     set labelsOn to 0
  42.   end if
  43. end
  44.  
  45. on new me, xBackSprite, xFrontSprite
  46.   set backLabelSprite to xBackSprite
  47.   set frontLabelSprite to xFrontSprite
  48.   set layerList to [:]
  49.   set labelsOn to 0
  50.   puppetSprite(backLabelSprite, 1)
  51.   puppetSprite(frontLabelSprite, 1)
  52.   set the visible of sprite backLabelSprite to 0
  53.   set the visible of sprite frontLabelSprite to 0
  54.   return me
  55. end
  56.  
  57. on addThing me, xThing
  58.   addProp(layerList, the number of member (toString(xThing) && "Labels"), xThing)
  59. end
  60.